<!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
<stack>
<name>in.hc</name>
<id>-1</id>
<cardCount>40</cardCount>
<cardID>3009</cardID>
<listID>10082</listID>
<cantModify><false /></cantModify>
<cantDelete><false /></cantDelete>
<cantAbort><false /></cantAbort>
<cardSize>
<width>640</width>
<height>480</height>
</cardSize>
<script>--------------------------------------------------------------------------------------------------------Multicom Publishing Inc.®----------------------------------------------------------------------------------------------------------------------------------System Handlers:-----------------------------on openStackhide menuBarhide titleBarset the userlevel to 5colorizeHCinitGlobalsopenPictureresetSystemPaletteloadPaletteuranusSndloadTxtend openStackon resetSystemPaletteset cursor to busypicture "SYSTEM_COLORS",resource,rect,false,8set the rect of window "SYSTEM_COLORS" to "639,479,640,480"show window "SYSTEM_COLORS" -- show is needed to reset palette!close window "SYSTEM_COLORS"noPaintWhiteif there is a window "black" then ¬close window "black"end resetSystemPaletteon closeStackspinCursornoPaintWhiteif there is a window "uraMenu"then close window "uraMenu"end closeStackon openPicture winName -- handle openPicture sent by Picture XCMDglobal gCurrWindowif winName <> "SYSTEM_COLORS" thenput winName into gCurrWindowend ifend openPictureon colorizeHCglobal gOKToColorizeif (gOKToColorize is empty) then pass colorizeHCend colorizeHCon initGlobalsglobal gGlobalsOKif gGlobalsOK is true then exit initGlobalsif LastHilites = "" then put "0,0,0,0,0,0,0" &return &"0"&return&"1" into LastHilitesput true into gGlobalsOKend initGlobals--------------------------Navigational Handlers---------------------------on loadPalettenoPaintWhitepalette "uraMenu", "0,417" --opens navigational paletteif there is a window "runMenu" then ¬close window "runMenu"end loadPaletteon prepWinpicture "black",resource,rect,false,8 --draws a black screen before showing thumbnailset rect of window "black" to "0,0,640,480"noPaintWhiteshow window "black"end prepWinon quitdoMenu "Quit HyperCard"end quiton goNextlock Screengo nextunlock Screenend goNexton goPrevlock Screengo previousunlock Screenend goPrevon goBacklock Screengo to card "Main Menu" --takes you to this stack main menuunlock Screenend goBackon goEventlock screengo to cd "MAIN MENU"unlock screenend goEventon goSolarlock screengo stack "HOME"unlock screenend goSolaron loadTxtglobal marker, printFieldput "PLANETS:URANUS:URANUS.TXT" into markerput "URANUS" into printFieldend loadTxt---------------------------Check Environment Handlers----------------------on cHCinstall-- Check for correct environmentset cursor to busy--if checkEnviron() is not "OK" thengo HomegetHomeInfoexit to HyperCardend ifset cursor to busy--repeat until the lockScreen is falseunlock screenend repeat--end cHCinstallfunction checkEnviron-- The heapspace requirements may vary depending on your stackput MaxDepth() into TheDepthif TheDepth < 4 then errBitDepthif (TheDepth = 1) ¬and (the heapSpace < 2600) then errMemory TheDepth,"1100K"else if (TheDepth = 2) ¬and (the heapSpace < 117200) then errMemory TheDepth,"1200K"else if (TheDepth = 4) ¬and (the heapSpace < 205000) then errMemory TheDepth,"1250K"else if (TheDepth = 8) ¬and (the heapSpace < 384000) then errMemory TheDepth,"1300K"else if (TheDepth = 16) ¬and (the heapSpace < 721000) then errMemory TheDepth,"2400K"else if (TheDepth ≥ 24) ¬and (the heapSpace < 1421000) then errMemory TheDepth,"3000K"else if stackActivate() is not empty thenerrColorreturn "OK"else return "OK"end checkEnvironon uranusSndglobal switchif switch > 0 thenexit uranusSndend ifQTMovie OpenMovie,Plain,"PLANETS:AUDIO:URANUS211KHz Movie", "1005,1005",¬nocontroller,dontPaintWhite,closeOnFinishset the visible of window "URANUS211KHz Movie" to falseend uranusSnd</script>
